home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D05.D64 / the ti challenge (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  631 b   |  18 lines
  1. 10 POKE53280,5:POKE53281,11:PRINT"[147]       [212][200][197] [212][197][195][200][206][207] [201][206][198][207] [195][200][193][204][204][197][206][199][197]"
  2. 20 PRINT"       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  3. 30 PRINT"   [159][212]HIS MONTH: [158][208]RIME [206]UMBER [193]NALYSIS"
  4. 40 PRINT,"[153][157][157][157] [208]RESS [210][197][212][213][210][206] TO SEE WHAT",," YOU HAVE TO BEAT!"
  5. 50 GETA$:IFA$<>CHR$(13)THEN50
  6. 60 PRINT"[145][145]     [212]IME ELAPSED:              ","     [208]RIME [206]UMBER:          [145][145][145][145]"
  7. 70 PRINT"[150]     [215]ORKING..."
  8. 80 :
  9. 90 :
  10. 100 TI$="000000":CLR:DIMB%(10000):FORN=0TO10000:IFB%(N)=1THEN130
  11. 110 PRINT,,INT(TI/.6+.5)/100"[157] SECONDS   ":PRINT,,2*N+3"[145][145]"
  12. 120 IF3*N+3<=10000THENFORK=3*N+3TO10000STEP2*N+3:B%(K)=1:NEXT
  13. 130 NEXT
  14. 140 :
  15. 150 :
  16. 160 PRINT"     [195]AN YOU BEAT IT?????[152]"
  17. 170 POKE631,152:POKE632,145:POKE633,210:POKE634,17:POKE635,157:POKE198,5:END
  18.